! name: ajt17
! type: ArchiCAD Door File
! ***** 3D script *****
mat1 = c
mat2 = d


prism_   15, 0.045, 
    0, 0, 15,
     a/2, 0, 15,
     a/2, b, 15,
    0, b, 15,
    0, 0, -1,

    0.12, 0.16, 15,
     a/2-0.12, 0.16, 15,
     a/2-0.12, 0.665, 15,
    0.12, 0.665, 15,
    0.12, 0.16, -1,

    
    0.12, 0.785, 15,
     a/2-0.12, 0.785, 15,
     a/2-0.12, b-0.12, 15,
    0.12, b-0.12, 15,
    0.12, 0.785, -1


prism_  5, 0.045,
    0.155,0.195, 15,
     a/2-0.155,0.195, 15,
     a/2-0.155, 0.63, 15,
    0.155, 0.63, 15,
    0.155,0.195, -1 



addz 0.0125


prism_ 10, 0.02,
    0.12, 0.16, 15,
     a/2-0.12, 0.16, 15,
     a/2-0.12, 0.665, 15,
    0.12, 0.665, 15,
    0.12, 0.16, -1,


    0.155,0.195, 15,
     a/2-0.155,0.195, 15,
     a/2-0.155, 0.63, 15,
    0.155, 0.63, 15,
    0.155,0.195, -1 


del 1
  
addz -0.005

kx = 0.135
ky = 0.8

dx = (a/2-0.135*2-0.015) / 2
dy = (b-0.135-0.8-0.015*2) / 3


for iy = 1 to 3 step 1

    for ix = 1 to 2 step 1

        put kx, ky, 15,
            kx+dx, ky, 15,
            kx+dx, ky+dy, 15,
            kx, ky+dy, 15,
            kx, ky, -1

        kx = kx+dx+0.015

    next ix

    kx = 0.135

    ky = ky+dy+0.015

next iy

prism_ 5+nsp/3, 0.055,
    0.12, 0.785, 15,
     a/2-0.12, 0.785, 15,
     a/2-0.12, b-0.12, 15,
    0.12, b-0.12, 15,
    0.12, 0.785, -1,

    use (nsp)

del 1
material mat1
addz 0.019

for ii = 1 to 3*2 step 1

    prism_ 5, 0.007,
        get (15)

next ii

del 1

addz 0.045
addy 0.95
addx 0.07

call "handle_2" mat2

addz -0.045

mulz -1


call "handle_2" mat2

